From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Wed, 7 Mar 2007 08:13:38 +0000 (+0000)
Subject: (XTset_vertical_scroll_bar) [MAC_OSX]: Don't show scroll
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1705
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9128323947ba5de31063f94ac8425ca1a16eba10;p=emacs.git

(XTset_vertical_scroll_bar) [MAC_OSX]: Don't show scroll
bar if its width is smaller than that of Aqua small scroll bar.
---

diff --git a/src/macterm.c b/src/macterm.c
index e0978066b84..3dbee62d2aa 100644
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -5217,7 +5217,11 @@ XTset_vertical_scroll_bar (w, portion, whole, position)
 #ifdef USE_TOOLKIT_SCROLL_BARS
   if (NILP (bar->track_top))
     {
-      if (sb_width >= disp_height)
+      if (sb_width >= disp_height
+#ifdef MAC_OSX
+	  || sb_width < MAC_AQUA_SMALL_VERTICAL_SCROLL_BAR_WIDTH
+#endif
+	  )
 	{
 	  XSETINT (bar->track_top, 0);
 	  XSETINT (bar->track_height, 0);